home *** CD-ROM | disk | FTP | other *** search
/ Great Canadian Scientists / GCS_CD.iso / mac / PC / GCSData / databa_o.dxr / 00032_ScientistNumber Update.ls < prev    next >
Encoding:
Text File  |  1996-09-21  |  567 b   |  31 lines
  1. on enterFrame
  2.   global Section, ScientistNumber, ButtonsActive
  3.   BSetup(8, 10)
  4.   BSetup(13, 13)
  5.   BSetup(37, 37)
  6.   BSetup(4, 4)
  7.   set Section to the frame
  8.   set ScientistNumber to the frame - 60
  9.   if ButtonsActive = 1 then
  10.     if the keyDownScript <> "DBKeyCheck" then
  11.       set the keyDownScript to "ScientistChangeKey"
  12.     end if
  13.   end if
  14. end
  15.  
  16. on exitFrame
  17.   cursor(-1)
  18.   go(the frame)
  19. end
  20.  
  21. on idle
  22.   global ButtonsActive
  23.   if ButtonsActive = 1 then
  24.     CheckHilite(8, 10)
  25.     CheckHilite(13, 13)
  26.     CheckHilite(20, 23)
  27.     CheckHilite(4, 4)
  28.   end if
  29.   pass()
  30. end
  31.